# 



T60«l/60; 

T32=l/32; 
tnum = 128; 
TIC « Xtlitnunv/ 
ttime = TIC*t±c./T32; 

ttroo<116 « mod(Cloor (Tic*cic./T32) , 16) ; 

tOffset ~ (TIC*C1C./T32)*T32 - (floor (TXC*tic . /T32 ) *T32) / 
phase - round (toffsct. / (T32/ 15) ) ; 



if mod(n,2)=0 

calcphase(n) = phase (n) j 
else 

if ttroodl6(n)<7.5 

calcphasc (n) — ttmodlG (n) +B / 
else 

calcphase(n) « ttntodl6 (n) -8 ; 

end 



tables [TIC fcfciine * t:txnedl6* toffset' phase* ealcphase']; 
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